home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT AutoLogin Count.xpl < prev    next >
Text File  |  2003-07-30  |  2KB  |  54 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="2"
  3. "COUNT"="1"
  4. "UIPATH 1"="Network\Auto Login\Windows NT/2K/XP"
  5. "UIPATH 2"="Startup/Shutdown\Startup\Windows NT/2K/XP\29) Auto Login"
  6. "NAME"="Count"
  7. "VERSION"="2.01"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Count"
  10. "OSVERSION"="0001011"
  11. "DESCRIPTION 1"="Auto login can be used to bypass the "Press Ctrl+Alt+Del to login" nagging screen at bootup."
  12. "DESCRIPTION 2"="When using AutoLogin, Windows is able to count the times the computer has been started using AutoLogon."
  13. "DESCRIPTION 3"="Each time the computer is started, Windows will decrement this counter by one (-1). When the counter reaches zero, Windows will automatically stop using AutoLogin and switch to the normal Login Window."
  14. "DESCRIPTION 4"="You can set the value to anything between 1 and 4294967295. To disable the counter, clear the field."
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="See Microsoft Knowledge Base Article - 221477"
  19.  
  20.  
  21. sP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\AutoLogonCount"
  22. iMax=4294967295
  23.  
  24. Sub Plugin_Initialize 
  25.  s=RegReadValue(sP) 
  26.  Call SetUIElement(1,s)
  27. End Sub
  28.  
  29. Sub Plugin_CheckData(ElementIndex)
  30. End Sub
  31.  
  32. Sub Plugin_Apply(ElementIndex,ElementSubIndex) 
  33.  s1=GetUIElement(1)
  34.  
  35.     if len(s1)>0 then
  36.        Call RegWriteValue(sP,s1,2)
  37.     else
  38.        if RegValueExists(sP)=true then
  39.           Call RegDeleteValue(sP)
  40.        end if
  41.     end if
  42.  
  43.     Call Restart()
  44.  
  45.  
  46.  
  47. End Sub
  48.  
  49. Sub Plugin_Terminate 
  50. End Sub
  51.  
  52.  
  53.  
  54.